home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / boot c64 comal (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  762b  |  37 lines
  1. 10 PRINT "[147]";CHR$(14)
  2. 20 POKE 53281,6
  3. 30 POKE 53280,6
  4. 40 PRINT "[154]";   :
  5. 50 PRINT "       [212][200][197] [195][207][205][193][204] [199][210][193][208][200][201][195][211][160][212][213][212][207][210]"
  6. 90 PRINT
  7. 100 PRINT "              [196]EVELOPED BY"
  8. 110 PRINT "             [205]INDY  [211]KELTON
  9. 120 [153]
  10. 130 [153] "(LEN) 1984 LEN(null)(null)ATN(null) (null)(null)VAL(null)(null) CHR$(null)(null)(null)(null), (null)(null)ATN (null)IMITED"
  11. 135 [153]
  12. 140 [153] "  STR$ISTRIBUTER: LENOMAL (null)SER'S CHR$ROUP, (null)(null)ATN"
  13. 150 [153] " 5501 CHR$ROVELAND (null)ER., (null)ADISON, (null)RIGHT$ 53716"
  14. 155 [153]
  15. 160 [153] "       (null)LEASE WAIT A MOMENT WHILE"
  16. 170 [153] "      LEN(null)(null)ATN(null) (null)ERSION 0.14 IS LOADED"
  17. 180 [153] ""
  18. 190 [153] "  PEEKACKUP COPIES PERMITTED FOR EDUCATION"
  19. 200 [153] "  (null)O REPRODUCTION OF PEEK(null)(null)(null) PERMITTED"
  20. 210 [153]
  21. 220 [153]
  22. 230 [153]
  23. 240 [153]
  24. 900 [143]
  25. 910 [143] CHAIN"HI + CHR$(13)
  26. 920 POKE 198,9
  27. 930 POKE 631,ASC("C")
  28. 940 POKE 632,ASC("H")
  29. 950 POKE 633,ASC("A")
  30. 960 POKE 634,ASC("I")
  31. 970 POKE 635,ASC("N")
  32. 980 POKE 636,34
  33. 990 POKE 637,ASC("H")
  34. 1000 POKE 638,ASC("I")
  35. 1010 POKE 639,13
  36. 1020 LOAD "C64 COMAL*",8
  37.